Namespace Mouse

    Module mMouseVars

        Public bLastFocusRef As Object
        Public HasChanged As Boolean

        Public Enum MouseInputType
            MouseMove = 0
            MouseClick = 1
            MouseDoubleClick = 2
            MouseUp = 3
            MouseDown = 4
        End Enum

        Public XCoord As Integer = Constants.gLoginResX \ 2
        Public YCoord As Integer = Constants.gLoginResY \ 2
        Public bIsDown As Boolean

        Public messageQueue As Queue

        Public Structure MouseMessage
            Dim type As MouseInputType
            Dim args As MouseEventArgs
        End Structure

        Public Enum MouseObjTypes
            Inventory = 0
        End Enum

        Public MovingObj As Object
        Public MouseObj As Object
        Public MouseObjXOffset As Integer, MouseObjYOffset As Integer
        Public MouseObjIndex As Integer = -1
        Public MouseObjType As MouseObjTypes

        Public MouseOverMobIndex As Long
        Public MouseOverPlayerID As Long


    End Module

End Namespace